home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #10 / Commodore_Disk_User_Vol.4_10_1991_-.d64 / lite menus mc (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  48 lines
  1. 10000 rem *****************************
  2. 10010 rem * lite menus! o/s version 1 *
  3. 10020 rem *        created by         *
  4. 10030 rem *  madhu surendranath (16)  *
  5. 10040 rem *  (c) copyright jan. 1991  *
  6. 10050 rem *****************************
  7. 10060 if x=0 or y=0 or ch=0 then print"?undefined parameters  error":stop
  8. 10070 if ch=1 then c$(1)="[166]":c$(2)="[166]":c$(3)="[166]":c$(4)="[166]":c$(5)="[166]":c$(6)="[166]"
  9. 10080 if ch=2 then c$(1)="[176]":c$(2)="[195]":c$(3)="[174]":c$(4)="[194]":c$(5)="[173]":c$(6)="[189]"
  10. 10090 if ch=3 then c$(1)="[213]":c$(2)="[195]":c$(3)="[201]":c$(4)="[194]":c$(5)="[202]":c$(6)="[203]"
  11. 10100 oc=peek(646):poke 646,col
  12. 10110 poke 781,y:poke782,x:sys 65520
  13. 10120 print c$(1);:for a=1 to x1-2
  14. 10130 print c$(2);:next:print c$(3)
  15. 10140 for a=1 to y1-2
  16. 10150 print tab(x) c$(4) tab(x+x1-1) c$(4)
  17. 10160 next a
  18. 10170 print tab(x) c$(5);:for a=1 to x1-2
  19. 10180 print c$(2);:next:print c$(6)
  20. 10190 poke 646,oc
  21. 10200 return
  22. 11000 rem ** flash/menu **
  23. 11010 if x=0 or y=0 or o$(1)="" then print"?undefined parameters  error":stop
  24. 11020 y=ps+a
  25. 11030 poke 781,y:poke 782,ta:sys65520
  26. 11040 poke 199,1:print o$(a);:poke199,0
  27. 11050 get a$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)then11050
  28. 11060 ifa$=""then b=a:a=a+1:goto11090
  29. 11070 ifa$="[145]"then b=a:a=a-1:goto11110
  30. 11080 ifa$=chr$(13) then zz=y:goto11130
  31. 11090 ifb=max thena=min:poke781,y:poke782,ta:sys65520:printo$(b):b=min:goto11020
  32. 11100 ifb<>max then poke781,ps+b:poke782,ta:sys65520:printo$(b):goto11020
  33. 11110 ifb=min thena=max:poke781,y:poke782,ta:sys65520:printo$(b):b=max:goto11020
  34. 11120 ifb<>min then poke781,ps+b:poke782,ta:sys65520:printo$(b):goto11020
  35. 11130 y=zz:forl=1 to 4
  36. 11140 poke 646,11:gosub11190
  37. 11150 poke 646,12:gosub11190
  38. 11160 poke 646,15:gosub11190
  39. 11170 next l
  40. 11180 return
  41. 11190 print"":forg=1to(zz-1):print"";:nextg:printtab(ta);
  42. 11200 poke199,1:printo$(a):poke199,0:forq=1to10:nextq
  43. 11210 return
  44. 12000 rem ** print at **
  45. 12010 if x=0 or y=0 then print"?undefined parameters  error":stop
  46. 12020 poke 781,y:poke 782,x:sys 65520
  47. 12030 return
  48.